home *** CD-ROM | disk | FTP | other *** search
/ Speccy ClassiX 1998 / Speccy ClassiX 98.iso / amiga_system / the_aminet / dev / gui / classactdemo.lha / ClassAct / Install_ClassActDemo < prev    next >
Encoding:
Text File  |  1995-09-13  |  6.3 KB  |  205 lines
  1. ;*******************************************************************************
  2. ;
  3. ;     ______ __                        ____           __
  4. ;    / __  // /                       / __ \        _/ /_
  5. ;   / /  -'/ /  ______ ______ ______ / /_/ /______ /  __/
  6. ;  / /    / /  / __  // ____// ____// __  // ____/ / /
  7. ; / /___ / /_ / __  /_\__  /_\__  // / / // /___  / /_
  8. ; \____//___//_/ /_//_____//_____//_/ /_//_____/ /___/
  9. ;
  10. ; Robert Reiswig ⌐1995
  11. ; Source: Digital Quill installer
  12. ; Orginal layout by: Christopher Aldi
  13. ;
  14. ; !! This installer was Edited in Digital Quill, also from Phantom Development!!
  15. ;*******************************************************************************
  16.  
  17. (set classactversion "1.0")
  18. (set spaceneed 130000)
  19.  
  20. ;*** System Stuff ***
  21. (set cpu (database "cpu"))  (set vblank (database "vblank"))
  22. (set graphmem (database "graphics-mem")) (set totmem (database "total-mem"))
  23. (set osver (/ (getversion "sys:libs/version.library") 65536))
  24. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  25. (set fastmem (- totmem graphmem))
  26.  
  27. ( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
  28. ( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
  29. ( if (= osver 41) ( (set workbench "4.0")) )))))
  30.  
  31.  
  32. ;********************************************************************
  33. ; English Strings 
  34. ;********************************************************************
  35. (set #sorry "ClassAct requires at least Kickstart 2.04. Here is the current setup:\n\n")
  36. (set #sorry1 (cat " \"" workbench "\" Version of OS\n\n"
  37.                   " \"" cpu "\" Processor\n "
  38.                   " \"" blank "\" Machine\n"
  39.                   " \"" graphmem  "\" Total Free Chip Memory\n"
  40.                   " \"" fastmem  "\" Total Free Fast Memory\n"
  41.              )                 
  42. )
  43.  
  44.  
  45. (set #WhereClassAct (cat "Where do you wish to install ClassAct?  "
  46.                       "A directory called \"ClassAct\" will be created there "
  47.                       "if none is present."
  48.                  )
  49. )
  50.  
  51.  
  52. (set #WhereAuto  (cat "Where do you wish to install the AutoDocs?  "
  53.                       "A directory called \"AutoDocs\" will be created there "
  54.                       "if none is present."
  55.                  )
  56. )
  57.  
  58.  
  59. (set #about  (cat "\n\n- ClassAct " classactversion " -\n\n\nPhantom Development, Inc.\n\n"
  60.                    "P.O. Box 572\n\nPlantsville, CT 06479\n\nTelephone: "
  61.                    "(203) 276-8175"
  62.              )
  63. )
  64.  
  65. (set #WhereInclude "Where do you wish to install the Includes?")
  66.  
  67. (set #yes "Yes")
  68. (set #no "No")
  69.  
  70. (set #whatpart "What parts of ClassAct do you wish to install?")
  71. (set #example  " Examples ")
  72. (set #autodoc  " AutoDocs ")
  73. (set #include  " Files ")
  74. (set #support  " Misc. Support Files ")
  75.  
  76.  
  77.  
  78. ;********************************************************************
  79. ; Check OS for <37
  80. ;********************************************************************
  81. (if (< osver 37) 
  82.    (abort  (cat #sorry #sorry1))
  83. )
  84.  
  85. ;********************************************************************
  86. ; !welcome
  87. ;********************************************************************
  88. (message #about)
  89. (welcome) 
  90.  
  91.  
  92. ;********************************************************************
  93. ; Ask where to put ClassAct & Make Dir
  94. ;********************************************************************
  95. (set CAdir   (askdir (prompt #WhereClassAct)
  96.            (help   #WhereClassAct)
  97.            (default "Work:")
  98.              )  
  99. )
  100.  
  101. (if (< (exists (tackon CAdir "ClassAct")) 2) (makedir (tackon CAdir "ClassAct") (infos)) )
  102.     
  103. (set where (tackon CAdir "ClassAct"))
  104. (set where1 CAdir)
  105. (set @default-dest where)
  106.  
  107. ;********************************************************************
  108. ; What parts to install?
  109. ;********************************************************************
  110. (set ToDo (askoptions (choices #example)
  111.               (prompt #whatpart)
  112.                       (help #whatpart)
  113.                   (default 15)
  114.       )
  115. )
  116.  
  117. ;********************************************************************
  118. ; Make sure there is room
  119. ;********************************************************************
  120. (set space1 (getdiskspace where))
  121. (set spacedif (- spaceneed space1))
  122.  
  123.  
  124. (set #yaspace (cat "'" where1 "' has enough room for ClassAct."))
  125. (if (< space1 spaceneed) 
  126.  
  127.   (set #yaspace (cat where " is " spacedif " bytes short.\nYou will need to "
  128.                            "'Abort Install' and free up some more space to install "
  129.                            " ClassAct on " where " ."
  130.                 )
  131.   ) 
  132. )
  133. (message (cat spaceneed " bytes are needed on\n\n'" where1 "'\n\nto install ClassAct.\n\n\n"
  134.           "Currently there is " space1 " bytes free.\n\n\n" #yaspace 
  135.          )
  136. )
  137.  
  138.  
  139. ;********************************************************************
  140. ; Copy Over Files
  141. ;********************************************************************
  142.  
  143. (copyfiles (source "Read_Me") (dest where) (infos) )
  144. (copyfiles (source "Read_Me-Layout") (dest where) (infos) )
  145. (copyfiles (source "Digital_Quill-Read_Me") (dest where) (infos) )
  146. (copyfiles (source "OrderForm") (dest where) (infos) )
  147. ;(copyfiles (source "ClassAct.License") (dest where) (infos) )
  148.  
  149.  
  150. (if (< (exists "sys:classes") 2) (makedir "sys:classes")  )
  151. (if (< (exists "sys:classes/gadgets") 2) (makedir "sys:classes/gadgets")  )
  152. (if (< (exists "sys:classes/images") 2) (makedir "sys:classes/images")  )
  153. (if (< (exists "sys:classes/objects") 2) (makedir "sys:classes/objects")  ) 
  154.  
  155. (copyfiles (source "Classes") (dest "sys:classes") (all) (infos) )
  156.  
  157.  
  158.  
  159.  
  160. (if (<> ToDo 0)
  161.  (
  162.  
  163.  
  164.  
  165.  
  166. (if (IN ToDo 0)
  167.    (
  168.      (if (< (exists (tackon where "Examples")) 2) (makedir (tackon where "Examples") )  )
  169.      (copyfiles (source "Examples") (dest (tackon where "Examples")) (all) (infos) )
  170.    )
  171. )  
  172.   
  173.   
  174.  
  175. (if (IN ToDo 1) 
  176.    (
  177.     (set autodir (askdir (prompt #WhereAuto) (help #WhereAuto) (default where) ) )
  178.     (if (< (exists (tackon autodir "AutoDocs")) 2) (makedir (tackon autodir "AutoDocs") )  )
  179.     (copyfiles (source "AutoDocs") (dest (tackon where "AutoDocs")) (all) (infos) ) 
  180.    )
  181. )
  182.  
  183.  
  184.  
  185. (if (IN ToDo 2)
  186.    (
  187.        (set INCdir (askdir (prompt #WhereInclude) (help #WhereInclude) (default "Include:") ) )
  188.        (copyfiles (source "Include") (dest INCdir) (all) (infos) )
  189.    )
  190. )
  191.  
  192.  
  193. (if (IN ToDo 3)
  194.    (
  195.      (if (< (exists (tackon where "Support")) 2) (makedir (tackon where "Support") ) )  
  196.      (copyfiles (source "Support") (dest (tackon where "Support")) (all) (infos) ) 
  197.    )
  198. )  
  199.  
  200.  
  201.  )
  202. ) ; **** END
  203.  
  204.  
  205.